home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 2.0 Developer Kit / QuickTime 2.0 Developer Kit.iso / mac / MAC / Programming Stuff / Documentation / develop / develop Issue 7 / develop 7 code / QuickTime / SimpleInMovies / SimpleInWindows.c < prev   
Encoding:
C/C++ Source or Header  |  1992-10-15  |  13.1 KB  |  421 lines  |  [TEXT/MPS ]
  1. /*     
  2. SimpleInMovies
  3.  
  4. Sample programs demonstrating how to open and display
  5. QuickTime™ Movies.
  6.  
  7. SimpleInWindows.c file contains the code for the routines 
  8. having to do with creating closing a maintaining movie windows.
  9.  
  10. Guillermo A. Ortiz
  11. Macintosh Developer Technical Support
  12.  
  13. 08/07/91 Created the file to move in the window calls. Also added code to save
  14. the movie on closing if changes have been made.
  15.  
  16. 08/22/91 -- Added the code to accomodate the fact that the bounds for the controller now enclose the whole movie.
  17. 11/19/91 -- Fixed movie saving code to save correctly after saving as...
  18. 11/21/91 -- Finished the flattening code including the progress stuff.
  19.  
  20. 10/08/92 -- Added code to check/save the LOOP atom in the user data.
  21. 10/09/92 -- Added code to check/save the WLOC atom used to store the last position of the movie
  22. */
  23.  
  24. #include <SimpleInMovie.h>
  25.  
  26. extern Component movieControllerComponent;
  27. extern long gFlattenMovies;
  28.  
  29. /* ************************************************************************* */
  30. /* Procedures that handle window stuff */
  31.  
  32. Boolean CreateOneWindow(Movie, StandardFileReply, short, short);
  33. Boolean IsAppWindow(WindowPtr);
  34. Boolean    DisposeAllWindows(void);
  35. Boolean    DisposeOneWindow(WindowPtr, short);
  36. Boolean SaveMovie( DocRecHandle, short);
  37. Boolean DoSave(short);
  38. OSErr PutMovieToFile(DocRecHandle, Boolean);
  39.  
  40. extern DialogPtr GetCenteredDialog(short, WindowPtr, WindowPtr);
  41. extern void OutlineDialogItem(DialogPtr, short);
  42. extern pascal Boolean    keyEquivFilter(DialogPtr, EventRecord *, short *);
  43. extern Boolean DisplayPutFile(StandardFileReply *);
  44. extern Rect    CenterWindow(WindowPtr, WindowPtr);
  45. extern OSErr FixMovieWindow(WindowPtr window);
  46. extern short GetFileLoopState(DocRecHandle DocHandle);
  47. extern void SetLoopState(DocRecHandle wHndl);
  48. extern short GetCurrentLoopState(DocRecHandle wHndl);
  49. extern void UpdateLoopStateInfo(DocRecHandle wHndl);
  50. extern void FixWindowPosition(WindowPtr w,DocRecHandle wHndl);
  51. extern Boolean WPositionChanged(WindowPtr w,DocRecHandle DocHandle);
  52. extern void UpdateWindowPos(void);
  53.  
  54. extern short gUntitledCount;
  55.  
  56. /* opens a window for the movie and the record that keeps the movie playing
  57.    in the window as well as the instance for the player */
  58. Boolean CreateOneWindow(moov, fileInfo, fileResNum, moovResID)
  59. Movie moov;
  60. StandardFileReply fileInfo;
  61. short fileResNum;
  62. {
  63. WindowPtr        myWindow;
  64. Rect            moovBox;
  65. DocRecHandle    DocHandle;
  66. MovieController localController;
  67. Point where;
  68. OSErr err;
  69. Boolean emptyBox = false;
  70.  
  71. /*     Get our display window.
  72. */
  73.     myWindow = GetNewCWindow(windowID, nil, (WindowPtr) -1); 
  74.     
  75.     if ( myWindow && (DocHandle = (DocRecHandle)NewHandle(sizeof(DocRec))) ) {     /* get storage for            */
  76.       (*DocHandle)->wMovie = moov;                    /* movie                    */
  77.       (*DocHandle)->wFileInfo.sfr = fileInfo;            /* file                        */
  78.       (*DocHandle)->wFileInfo.resFile = fileResNum;
  79.       (*DocHandle)->wFileInfo.moovID = moovResID;
  80.        (*DocHandle)->loopState = noLoop; /* default */
  81.       
  82.        if ( localController = OpenComponent((Component)movieControllerComponent) ) { /* and component    */
  83.         (*DocHandle)->wPlayer = localController;    /* OpenComponent can move memory so it may not a good idea to dereference the handle in the same line */
  84.         SetWRefCon(myWindow, (long)DocHandle);
  85.         
  86.         /* now size window adding some space at the bottom for controller */
  87.         GetMovieBox(moov,&moovBox); /* Use the movie box to resize window */
  88.         
  89.         where.h = moovBox.left;
  90.         where.v = moovBox.top;
  91.  
  92.         if (err = MCNewAttachedController((*DocHandle)->wPlayer, moov, myWindow, where) )
  93.           DebugStr("\pError at PTNewAttachedController");
  94.                   
  95.         /* now we resize the window according to the controller settings and the
  96.            dimensions of the movie.
  97.         */
  98.         FixMovieWindow(myWindow);
  99.         
  100.         SetWTitle(myWindow,fileInfo.sfFile.name);
  101.             
  102.  
  103.         SetPort(myWindow);
  104.         
  105.         /* Before we play the movie check the state of looping an set it accordingly */
  106.         
  107.         if (fileResNum != kNoFileOpen) { /* the movie is not brand new */
  108.           (*DocHandle)->loopState = GetFileLoopState(DocHandle);
  109.           if ((*DocHandle)->loopState)
  110.             SetLoopState(DocHandle);
  111.         /* since we are here we can position the window according to the WLOC atom */
  112.           FixWindowPosition(myWindow, DocHandle);
  113.  
  114.         }
  115.         
  116.         ShowWindow(myWindow);
  117.         SelectWindow(myWindow);
  118.         
  119.         if (err = MCDoAction((*DocHandle)->wPlayer, mcActionPlay, (Ptr)0x00010000) )
  120.           DebugStr("\pError at MCGetControllerBoundsRect");
  121.  
  122.         return true;
  123.       }
  124.     }
  125.     /* something failed so we have to get rid of the window */
  126.     DisposeWindow(myWindow);
  127.     return(false);
  128. }
  129.  
  130. /* returns true if all windows have been closed */
  131. Boolean    DisposeAllWindows(void)
  132. {
  133.     WindowPtr    window;
  134.     
  135.     while (window = *(WindowPtr *)WindowList) {
  136.  
  137.         /* While we have a front window, try closing it. */
  138.  
  139.         if (!DisposeOneWindow(window, quitCommand)) return(false);
  140.     }
  141.  
  142.     return(true);
  143. }
  144.  
  145.  
  146. /* Closes one window */
  147.  
  148. Boolean    DisposeOneWindow(window, command)
  149. WindowPtr window;
  150. short command;
  151. {
  152.     DocRecHandle    wHndl;
  153.  
  154.     if (IsAppWindow(window)) {
  155.         if (wHndl = (DocRecHandle)GetWRefCon(window)) {     /* Get the storage handle */
  156.           if (SaveMovie(wHndl, command)   )
  157.             return (false);     /* who knows the user hit cancel maybe */
  158.  
  159. /*****     MCRemoveMovie goes away.
  160.           MCRemoveMovie((*wHndl)->wPlayer);
  161. */
  162.           CloseComponent((*wHndl)->wPlayer);            /* and player instance        */
  163.           DisposeMovie((*wHndl)->wMovie);                /* and get rid of movie        */
  164.           if ((*wHndl)->wFileInfo.sfr.sfFile.vRefNum != kInvalVRefNum) {
  165.             if (CloseMovieFile((*wHndl)->wFileInfo.resFile) )/* file open, close it        */
  166.               DebugStr("\pCloseMovieFile failed in DisposeOneWindow"); 
  167.           }
  168.           DisposHandle((Handle)wHndl);                    /* and finally the handle    */
  169.         }
  170.     }
  171.     DisposeWindow(window);
  172.     return(true);
  173. }
  174.  
  175. Boolean IsAppWindow(window)
  176. WindowPtr window;
  177. { 
  178.     if (window)
  179.        return (((WindowPeek)window)->windowKind >= userKind);
  180.     else
  181.       return false;
  182. }
  183. /* *************************************************************** */
  184.  
  185. /* checks that there is a movie associated with the front most window
  186.    and tries to save it; this is used when the save or save as commands
  187.    are executed.
  188.    
  189. */
  190. Boolean DoSave(command)
  191. short command;
  192. {
  193. WindowPtr window;
  194. DocRecHandle wHndl;
  195. short volume;
  196.  
  197.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  198.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  199.         if (WPositionChanged(window, wHndl) ) { /* dirty the movie to save the position of the window */
  200.           volume = GetMoviePreferredVolume((*wHndl)->wMovie);
  201.           SetMoviePreferredVolume((*wHndl)->wMovie, volume+1);
  202.           SetMoviePreferredVolume((*wHndl)->wMovie, volume);
  203.         }
  204.         return SaveMovie(wHndl, command);
  205.       }
  206.     }
  207. }
  208.  
  209. /* The progress proc lets the user know what is going on while a FlattenMovie call
  210.    is being done.
  211.    Not from MacShell.
  212. */
  213. pascal OSErr flattenProgressProc(Movie m, short message, short operation, Fixed percent, long refCon)
  214. {
  215. #pragma unused (m)
  216.  
  217. WindowPtr    pDialog;
  218. Fixed        percentFix = 0x00640000;  /* hundred in fixed */
  219. short        percentShort;
  220. Rect        windRect,
  221.             progressRect= {100,20,120,200};
  222. GrafPtr        oldPort;
  223.  
  224.     if (operation != progressOpFlatten)    /* This should only be called for flatten */
  225.       return featureUnsupported;            
  226.     else                                            /* OK this I know about                            */
  227.       switch (message) {
  228.         case movieProgressOpen:
  229.           SetRect(&windRect,20,20,240,200);
  230.           pDialog = NewCWindow(nil,&windRect,"",false, dBoxProc, (WindowPtr)-1L,true,0);
  231.           CenterWindow(pDialog, nil);
  232.           if (pDialog) {
  233.               GetPort(&oldPort);
  234.               ShowWindow(pDialog);
  235.             SetPort(pDialog);
  236.             MoveTo(30,50);
  237.             DrawString("\pFlattening in progress …");
  238.             FrameRect(&progressRect);
  239.               *(WindowPtr *)refCon = pDialog; 
  240.             SetPort(oldPort);
  241.               return noErr;
  242.           }
  243.         break;
  244.         case movieProgressUpdatePercent:
  245.           GetPort(&oldPort);
  246.           SetPort(*(WindowPtr *)refCon);
  247.           percentFix = FixMul(percent, percentFix);
  248.             percentShort = FixRound(percentFix);
  249.           FrameRect(&progressRect);
  250.           InsetRect(&progressRect,2,2);
  251.           progressRect.right = progressRect.left+((progressRect.right - progressRect.left) * percentShort/100);
  252.           PaintRect(&progressRect);
  253.           SetPort(oldPort);                         
  254.           return noErr;
  255.         break;
  256.         case movieProgressClose:
  257.           DisposeWindow(*(WindowPtr *)refCon);
  258.           return noErr;
  259.         break;
  260.       }
  261. }
  262.  
  263.  
  264. /* The next procedures come from the DTS sample MacShell, check it out for more details or
  265.    better comments.    Note though that I have modified the code to accomodate the immediate
  266.    needs, don't blame MacShell.                                    */
  267.  
  268.  
  269. /* checks is the movie has to be saved and depending on the command that
  270.    originated the requests saves the movie.
  271. */   
  272.    
  273. Boolean SaveMovie( wHndl, command)
  274. DocRecHandle wHndl;
  275. short command;
  276. {
  277.     Str255                closeOrQuit;
  278.     short                item;
  279.     StandardFileReply    reply;
  280.     OSErr                err;
  281.     DialogPtr            saveDialog;
  282.  
  283.     if (command != saveMovieAs) {                        /* If regular save... */
  284.         if (!HasMovieChanged((*wHndl)->wMovie))    {        /* If movie clean...   */
  285.           /*except that looping could have changed. */
  286.           if ( (*wHndl)->loopState == GetCurrentLoopState(wHndl) )
  287.               return(noErr);                                /* Consider it saved. */
  288.         }
  289.     }
  290.  
  291.     if ((command == closeMovie) || (command == quitCommand)) {
  292.         /* If implicit save... */
  293.  
  294.         GetIndString(closeOrQuit, rMiscStrings,
  295.                      (command == closeMovie) ? sClosing : sQuitting);
  296.         ParamText((*wHndl)->wFileInfo.sfr.sfFile.name, closeOrQuit, nil, nil);
  297.  
  298.         saveDialog = GetCenteredDialog(rYesNoCancel, nil, (WindowPtr)-1L);
  299.  
  300.         if (saveDialog) {
  301.             OutlineDialogItem(saveDialog, kSaveYes);
  302.             ModalDialog((ModalFilterProcPtr)keyEquivFilter, &item);
  303.             DisposDialog(saveDialog);
  304.         }
  305.         else
  306.             item = kSaveYes;
  307.  
  308.         if (item != kSaveYes) {
  309.             err = noErr;
  310.             if (item == kSaveCanceled) err = userCanceledErr;
  311.             return(err);
  312.         }
  313.     }
  314.  
  315.     if (((command == saveMovieAs) ||
  316.         ((*wHndl)->wFileInfo.sfr.sfFile.vRefNum == kInvalVRefNum) )) {
  317.         /* Prompt with SFGetFile if doing a Save As or have never saved before. */
  318.  
  319.         reply = (*wHndl)->wFileInfo.sfr;
  320.         
  321.         if (!DisplayPutFile(&(reply)))
  322.             return(userCanceledErr);
  323.                 /* User canceled the save. */
  324.  
  325.         if ((*wHndl)->wFileInfo.sfr.sfFile.vRefNum != kInvalVRefNum) {
  326.             if (err = CloseMovieFile((*wHndl)->wFileInfo.resFile) )
  327.               DebugStr("\pCloseMovieFile failed in SaveMovie"); 
  328.                 /* Close the old file.  Don't respond to any error here because
  329.                 ** the user may be trying to do a save-as because their old file
  330.                 ** is bad.  If we fail to close the old file, and then respond
  331.                 ** to the error, the user won't get the opportunity to save
  332.                 ** their document to a new file.
  333.                 */
  334.         }
  335.         SetWTitle(FrontWindow(),reply.sfFile.name);
  336.         (*wHndl)->wFileInfo.sfr = reply;
  337.         if ( err = PutMovieToFile(wHndl, true) ) {
  338.           reply.sfFile.vRefNum = kInvalVRefNum;
  339.           DebugStr("\pCouldn't create the new file for save as");
  340.         }
  341.     }
  342.     else /* saving into an existing file */
  343.       if (err = PutMovieToFile(wHndl, false) ) {
  344.         (*wHndl)->wFileInfo.sfr.sfFile.vRefNum = kInvalVRefNum;
  345.         return(err);
  346.       }
  347.     
  348.     ClearMovieChanged((*wHndl)->wMovie);
  349.     return(noErr);
  350. }
  351.  
  352.  
  353. OSErr PutMovieToFile(wHndl, newFile)
  354. DocRecHandle    wHndl;
  355. Boolean            newFile;
  356. {
  357. OSErr theErr;
  358. short    resFile, 
  359.         resID = 0; /* resource id = 0 tells the MovieToolbox to come up with a number */
  360. DialogPtr flattenDialog;     /* the progress proc stores here its dialog pointer */
  361.  
  362.     /* we are about to save the file this is a good time to update the loop state both
  363.        in memory and in the file.
  364.        
  365.     */
  366.     
  367.     UpdateLoopStateInfo(wHndl);
  368.     
  369.     UpdateWindowPos();
  370.     
  371.     resFile = CurResFile();
  372.     if (newFile) {
  373.       if ( gFlattenMovies) {
  374.       
  375.           /* Brackett Flatten movie with SetMovieProgress proc calls so that the user
  376.            gets to know what is going on if the flattening takes too long.
  377.            It is also important to lock the handle containing the movie reference,
  378.            FlattenMovie moves data around and since we are dereferencing the handle
  379.            the pointer we pass could end up pointing to garbage.
  380.         */
  381.         HLock((Handle)wHndl);
  382.         SetMovieProgressProc((*wHndl)->wMovie, flattenProgressProc, (long) &flattenDialog);
  383.  
  384.         FlattenMovie((*wHndl)->wMovie, 0 /* flags */, 
  385.                      &((*wHndl)->wFileInfo.sfr.sfFile), 'TVOD',0,
  386.                      createMovieFileDeleteCurFile /* createMovieFileFlags*/,
  387.                       &resID, nil /* resName */);
  388.  
  389.         HUnlock((Handle)wHndl);
  390.         if (theErr = GetMoviesError())
  391.           DebugStr("\pFlattenMovie failed");
  392.         else
  393.           (*wHndl)->wFileInfo.moovID = resID;        /* remember the moov resource id */
  394.  
  395.         SetMovieProgressProc((*wHndl)->wMovie, nil, 0); /* flattening is done remove proc */
  396.  
  397.         if (theErr = OpenMovieFile( &((*wHndl)->wFileInfo.sfr.sfFile),
  398.                                     &((*wHndl)->wFileInfo.resFile),fsRdWrPerm))
  399.           DebugStr("\pOpenMovieFile failed");
  400.       }
  401.       else /* do not flatten */
  402.         {
  403.           if ( !(theErr = CreateMovieFile(  &((*wHndl)->wFileInfo.sfr.sfFile), 'TVOD',0,createMovieFileDeleteCurFile, 
  404.                                      &((*wHndl)->wFileInfo.resFile), nil) )) {
  405.             if (theErr = AddMovieResource((*wHndl)->wMovie, (*wHndl)->wFileInfo.resFile, 
  406.                                         &resID, nil /* resName */) )
  407.               DebugStr("\pAddMovieResource failed in PutMovieToFile");
  408.             else
  409.              (*wHndl)->wFileInfo.moovID = resID;        /* remember the moov resource id */
  410.           }
  411.           else DebugStr("\pCreateMovieFile Failed in PutMovieToFile");
  412.         }
  413.     }
  414.     else 
  415.       if (theErr = UpdateMovieResource( (*wHndl)->wMovie, (*wHndl)->wFileInfo.resFile, 
  416.                                     (*wHndl)->wFileInfo.moovID, nil))
  417.         DebugStr("\pPutMovieToFile: UpdateMovieResource failed");
  418.  
  419.     UseResFile(resFile);
  420.     return (theErr);
  421. }